home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 22 / AACD 22.iso / AACD / Online / InetDial / AREXX / mdr_mailrefresh.awebrx < prev    next >
Encoding:
Text File  |  2000-12-26  |  352 b   |  22 lines
  1. /*rx
  2. ©2000 MDR mail refresh
  3. */
  4.  
  5. ADDRESS COMMAND
  6.  
  7. IF ~ SHOW('L', "rexxsupport.library") THEN DO
  8.    IF ADDLIB('rexxsupport.library', 0, -30,0)
  9.       THEN SAY 'added lib'
  10.       ELSE DO
  11.       SAY 'arexx.library not available - exiting'
  12.       EXIT 10
  13.       END
  14. END
  15.  
  16. CALL OPENPORT 'MDRCONTROL50'
  17. WaitForPort MDRCONTROL51
  18. CALL CLOSEPORT 'MDRCONTROL50'
  19.  
  20. EXIT
  21.  
  22.